﻿Imports System.Text
Imports System.IO
Public Class w0004
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim tmpS As String = ""
        Dim sb As New StringBuilder
        Dim kuadu As Integer = 0
        Select Case ComboBox1.SelectedIndex
            Case 0 '五星不同号
                For i = 0 To general_Ubound
                    If pd_wuxingbutonghao(i) = True Then
                        sb.Append(arrQH(i) & vbTab & arrJH_S(i) & vbTab & "出" & vbTab & kuadu.ToString & vbCrLf)
                        kuadu = 0
                    Else
                        kuadu = kuadu + 1
                    End If
                Next
        End Select

        TextBox1.Text = sb.ToString.Trim
    End Sub
    Function pd_wuxingbutonghao(haomaIndex As Integer) As Boolean

        For i = 0 To 4
            For j = i + 1 To 4
                If arrJH_sep_I(haomaIndex, i) = arrJH_sep_I(haomaIndex, j) Then
                    Return False
                End If
            Next
        Next
        Return True
    End Function
End Class